BBS in a Box 7/BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso/Files/Hyper/Co-Cz/Command Key Enhancer 1.0.cpt/Command Key Enhancer 1.0/cards.xml

Text File | 1992-03-23 | 19KB | 389 lines

card_3027.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<card>
    <id>3027</id>
    <filler1>0</filler1>
    <bitmap>BMAP_3588.pbm</bitmap>
    <cantDelete> <false /> </cantDelete>
    <showPict> <true /> </showPict>
    <dontSearch> <false /> </dontSearch>
    <owner>2649</owner>
    <link rel="stylesheet" type="text/css" href="stylesheet_3087.css" />
    <part>
        <id>3</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <true /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>21</left>
            <top>19</top>
            <right>221</right>
            <bottom>281</bottom>
        </rect>
        <style>scrolling</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <true /> </showLines>
        <wideMargins> <true /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font></font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <textHeight>16</textHeight>
        <name>Menu Names</name>
        <script></script>
    </part>
    <part>
        <id>1</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <true /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>21</left>
            <top>19</top>
            <right>221</right>
            <bottom>281</bottom>
        </rect>
        <style>scrolling</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <true /> </showLines>
        <wideMargins> <true /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font></font>
        <textSize>12</textSize>
        <textStyle>extend</textStyle>
        <textHeight>16</textHeight>
        <name>Menu Items</name>
        <script></script>
    </part>
    <part>
        <id>2</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <true /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>204</left>
            <top>19</top>
            <right>252</right>
            <bottom>281</bottom>
        </rect>
        <style>scrolling</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <true /> </showLines>
        <wideMargins> <true /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font></font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <textHeight>16</textHeight>
        <name>Command Keys</name>
        <script></script>
    </part>
    <part>
        <id>4</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>258</left>
            <top>19</top>
            <right>362</right>
            <bottom>41</bottom>
        </rect>
        <style>roundrect</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Times</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Add Menu Item</name>
        <script>-- card button "Add Menu Item"-- by Brent Deverman          3/23/92-- 1521 Sibley NW-- Grand Rapids, MI  49504-4949     America Online: BrentDenton mouseUpGlobal CMDKEpickmenuAnswer "Now Pick the menu that you want to add a command key equivilant to."¬with "Cancel" or "OK"if it ≠ "Cancel" then put true into CMDKEpickmenuend mouseUp</script>
    </part>
    <part>
        <id>5</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>258</left>
            <top>43</top>
            <right>362</right>
            <bottom>65</bottom>
        </rect>
        <style>roundrect</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Times</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Delete Menu Item</name>
        <script>-- card button "Delete Menu Item"-- by Brent Deverman          3/23/92-- 1521 Sibley NW-- Grand Rapids, MI  49504-4949     America Online: BrentDenton mouseDownglobal gotitput the selectedline into gotitset hilite of me to truepass mouseDownend mouseDownon mouseUpglobal gotitset hilite of me to falseif gotit is empty thenanswer "You must click on a menu item first."exit mouseUpend ifput word 2 of gotit into thelinedelete line theline of cd field id 3delete line theline of cd field id 1delete line theline of cd field id 2put empty into gotitreset menubarclosebackgroundupdatemenucommandspass mouseUpend mouseUp</script>
    </part>
    <part>
        <id>6</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>258</left>
            <top>67</top>
            <right>362</right>
            <bottom>89</bottom>
        </rect>
        <style>roundrect</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Times</font>
        <textSize>10</textSize>
        <textStyle>plain</textStyle>
        <name>Change Cmd Character</name>
        <script>-- card button "Change Cmd Character"-- by Brent Deverman          3/23/92-- 1521 Sibley NW-- Grand Rapids, MI  49504-4949     America Online: BrentDenton mouseDownglobal gotitput the selectedline into gotitif the mouseloc is within the rect of me thenset hilite of me to trueend ifpass mouseDownend mouseDownon mouseUpglobal gotitset hilite of me to falseif gotit is empty thenanswer "You must click on a menu item first."exit mouseUpend ifput word 2 of gotit into thelineput getchar(false) into Bassput Bass into line theline of cd field id 2closebackgroundupdateMenuCommandspass mouseUpend mouseUpon mouseLeaveset the hilite of me to falsepass mouseLeaveend mouseleave</script>
    </part>
    <part>
        <id>7</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>258</left>
            <top>91</top>
            <right>362</right>
            <bottom>113</bottom>
        </rect>
        <style>roundrect</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Times</font>
        <textSize>12</textSize>
        <textStyle>bold</textStyle>
        <name>Install</name>
        <script>-- card button "Install/Remove"-- by Brent Deverman          3/23/92-- 1521 Sibley NW-- Grand Rapids, MI  49504-4949     America Online: BrentDenton mouseUplock screenif the short name of me is "Remove" then removescriptelseinstallscriptend ifunlock screen with visual effect dissolve fastpass mouseUpend mouseUpon removescriptlock screenset lockmessages to trueput the userlevel into savelevelset the userlevel to 5put the script of stack "Home" into stackscriptrepeat with x = 1 to the number of lines in stackscriptif line x of stackscript = "  set cursor to commandkey -- ¬®¬©¬®¬•¬©¬®¬©‚àÜ‚àÜÀô‚àÜΔí¬©" thendelete line x to x + 3 of stackscriptset script of stack "Home" to stackscriptput "Fixed" into didinstallset name of me to "Install"exit repeatend ifend repeatif didinstall is "Fixed" thenanswer the short name of this stack && "was removed."elseanswer "Couldn't remove" && the short name of this stack¬¨&& "because" && the resultend ifset userlevel to savelevelif short name of this stack is in the stacksinuse thenstop using this stackend ifreset menubarunlock screenset lockmessages to falseend removescripton installscriptlock screenset lockmessages to trueput the userlevel into savelevelset the userlevel to 5put short name of this stack into thestackput the script of stack "Home" into stackscriptrepeat with x = 1 to the number of lines in stackscriptif line x of stackscript contains "On startup" thenput return & "set cursor to commandkey -- ¬®¬©¬®¬•¬©¬®¬©‚àÜ‚àÜÀô‚àÜΔí¬©" & return &¬¨"if there is a stack" && quote & thestack & quote && "then"¬¨& return & "start using stack" && quote & thestack & quote¬¨& return & "end if" after line x of stackscriptset the script of stack "home" to stackscriptput "Fixed" into didinstallset name of me to "Remove"exit repeatend ifend repeatif didinstall is "fixed" thenplay fute "A A"answer the short name of this stack && "was installed into the home stack."elsebeep 3answer "Couldn't install." && the short name of this stack¬¨&& "because" && the resultend ifset userlevel to savelevelif short name of this stack is not in the stacksinuse thenstart using this stackend ifreset menubarunlock screenset lockmessages to falseend installscript</script>
    </part>
    <part>
        <id>11</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>255</left>
            <top>117</top>
            <right>446</right>
            <bottom>280</bottom>
        </rect>
        <style>scrolling</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <true /> </showLines>
        <wideMargins> <true /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Geneva</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <textHeight>16</textHeight>
        <name>Help</name>
        <script>-- card field "Help"-- by Brent Deverman          3/23/92-- 1521 Sibley NW-- Grand Rapids, MI  49504-4949     America Online: BrentDenton mouseUpend mouseUp</script>
    </part>
    <part>
        <id>12</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>235</left>
            <top>20</top>
            <right>252</right>
            <bottom>281</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>MultiScroll</name>
        <script>-- card button "MultiScroll"-- by Brent Deverman          3/23/92-- 1521 Sibley NW-- Grand Rapids, MI  49504-4949     America Online: BrentDenton mouseDownglobal CMDKEinitScrollput the rect of me into myRectMultiScroll myRect,"1,card","2,card","3,card"put the scroll of card field id 2 into initScrollend mouseDownon mouseWithinMultiScroll Initend mouseWithinon mouseLeaveMultiScroll UnInitend mouseLeave</script>
    </part>
    <part>
        <id>13</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>412</left>
            <top>1</top>
            <right>447</right>
            <bottom>37</bottom>
        </rect>
        <style>roundrect</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>2478</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Info</name>
        <script>-- card button "Info"-- by Brent Deverman          3/23/92-- 1521 Sibley NW-- Grand Rapids, MI  49504-4949     America Online: BrentDenton mouseUpshow cd field "About"pass mouseUpend mouseUp</script>
    </part>
    <part>
        <id>14</id>
        <type>field</type>
        <visible> <false /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <true /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>0</left>
            <top>0</top>
            <right>448</right>
            <bottom>296</bottom>
        </rect>
        <style>opaque</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <true /> </showLines>
        <wideMargins> <true /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Geneva</font>
        <textSize>18</textSize>
        <textStyle>plain</textStyle>
        <textHeight>24</textHeight>
        <name>About</name>
        <script>-- card field "About"-- by Brent Deverman          3/23/92-- 1521 Sibley NW-- Grand Rapids, MI  49504-4949     America Online: BrentDenton mouseUphide mepass mouseUpend mouseUp</script>
    </part>
    <content>
        <layer>card</layer>
        <id>11</id>
        <text><span class="style4">    Command Key Enhancer 1.0</span><span class="style1">               By      Brent Deverman     This stack can be used to assign command keys to menu items. To install this stack so it works every time you start up Hypercard, just click the Install button if every thing goes well it will tell you so. The button will change to a remove button then and you just have to click on that to remove it from your home stack.NOTE: When you click the install button it adds a small handler to your home stack.Say you want the menu item Save a Copy... to have the command key command S then all you have to do is press the Add Menu Item button and then choose the Save a Copy... menu and the stack will ask you for a command key character. You would then just have to type an S and it will automatically put it into the field and assign it to the menu item. If you don't want it anymore then you can click on it in the field and press the Delete Menu Item button. If you want to change the command key then click on the item you want to change in the field and press the Change Cmd Character button. You will be asked for the new character that you want to use. Type the new character and press return. The command key will be changed.If you don't understand any of this I am sorry that I can't write clear and concise but you will just have to figure it out by yourself. After all it is not very complicated.</span></text>
    </content>
    <content>
        <layer>card</layer>
        <id>3</id>
        <text>FileFileFileFileEditObjectsObjectsObjectsObjectsEdit</text>
    </content>
    <content>
        <layer>card</layer>
        <id>1</id>
        <text><span class="style1">ave a Copy...</span><span class="style2"><a href="#" class="group">Compact Stack</a></span><span class="style1">New Stack...Delete Stack...Copy CardNew ButtonNew FieldNew BackgroundStack Info...Delete Card</span></text>
    </content>
    <content>
        <layer>card</layer>
        <id>2</id>
        <text>SU*YA[]\'D</text>
    </content>
    <content>
        <layer>card</layer>
        <id>14</id>
        <text><span class="style6">ommand Key Enhancer 1.0</span><span class="style1">ByBrent DevermanIf you questions, comments, or bugs write me at</span><span class="style5">1521 Sibley NWGrand Rapids, MI49504-4949</span><span class="style1">or I can be reached on America Online as </span><span class="style5">BrentDent</span><span class="style1">.</span></text>
    </content>
    <name></name>
    <script>‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû Script info for this card. ‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àûHANDLERS: domenu,setmenu,mouseupFUNCTIONS: getcharSize of script: 1319 chars.         3/23/92         Brent Deverman‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àûon domenu menuitem,menuGlobal CMDKEpickmenuif CMDKEpickmenu is true thenput false into CMDKEpickmenusetmenu menuitem,menuclosebackgroundupdateMenuCommandselsepass domenuend ifend domenuon setmenu menuitem,menuGlobal CMDKEcommandcharactersput getchar(true) into Bassput  menu & return after cd field id 3get the number of lines in cd field id 3put menuitem into line it of cd field id 1put bass into line it of cd field id 2end setmenufunction getchar checkGlobal CMDKEcommandcharactersrepeatask "Please type your command character i.e. 'Y' (Without quotes and it may not be longer than one character.)"put it into Bassif Bass is empty then exit to hypercardif length of Bass > 1 thenanswer "WRONG! Can only be 1 Character long."elseif check is true thenif CMDKEcommandcharacters contains Bass thenanswer "That character is already taken, please try another."elseexit repeatend ifelseexit repeatend ifend ifend repeatreturn Bassend getcharon mouseupglobal CMDKEselectionif long name of the target contains "field" thenput the clickline into CMDKEselectionselect CMDKEselectionend ifpass mouseupend mouseup</script>
</card>